home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
ArcSearch.lha
/
ArcSearch.dopus5
next >
Wrap
Text File
|
1996-09-20
|
2KB
|
77 lines
/*
$VER: ArcSearch V1.0 (20/09/96)
Rob Saxby robs@telecall.co.uk - http://www.telecall.co.uk/~robs - #IRC ChromeB
Searches through LHA / LZH / LZX archives to extract files
Setup Command - [Arexx] Dopus5:arexx/arcsearch.dopus5 {Qp}
You can use the "|" (or) command in the string aswell, Eg "font|device|library"
Feel free to enhance this script! Send to me if you do, cheers...
*/
parse arg portname .
Options results
If portname='' then
portname='DOPUS.1'
address value portname
lister query source
If rc>0 then do
dopus request '"Please select a source file!" ok'
Call Quit
End
Outpath = 'T: ' /*Define your own output path*/
parse var result handle .
lister set handle busy on
lister query handle path
FullPath = RESULT
dopus getstring '"Enter search string" 255"" Ok'
Find = RESULT
lister query handle selfiles stem files.
lister set handle progress files.count 'Searching...'
lister set handle title 'Searching...'
lister refresh handle full
do i=0 to files.count-1
lister query handle abort
if RESULT then
signal Quit
lister set handle progress count i+1
lister set handle progress name files.i
lister query handle entry files.i stem fileinfo.
SetFile ='"'FullPath||fileinfo.name'"'
ext=reverse(fileinfo.name)
parse var ext ext '.'
ext=upper(reverse(ext))
if ext='LHA' | ext='LZH' then
address command 'lha >NIL: x' SetFile Outpath'#?('find')#?'
if ext='LZX' then
address command 'lzx >NIL: x' SetFile Outpath'#?('find')#?'
lister select handle '"'fileinfo.name'"' off
End
Signal Quit
Quit:
lister set handle title
lister refresh handle full
lister set handle busy off